home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Applications / CornerClock 1.5 / Toolbox.p < prev   
Encoding:
Text File  |  1996-02-29  |  407 b   |  30 lines  |  [TEXT/CWIE]
  1. Unit Toolbox;
  2.  
  3. Interface
  4.  
  5. Uses
  6.     Windows, Fonts, Dialogs, Processes, ToolUtils, Devices, Resources, Sound, 
  7.     Icons, StandardFile, Folders, QDOffscreen, AppleEvents;
  8.     
  9. Type
  10.     str3    =    string[3];
  11.     
  12. Procedure InitToolbox;
  13.  
  14. Implementation
  15.     
  16. Procedure InitToolbox;
  17.  
  18.     begin
  19.     InitGraf(@qd.thePort);
  20.     InitFonts;
  21.     InitWindows;
  22.     InitMenus;
  23.     TEInit;
  24.     InitDialogs(NIL);
  25.     InitCursor;
  26.     MaxApplZone;
  27.     MoreMasters;
  28.     end;
  29.     
  30. End.